;; 简单的call/cc测试

(display "测试简单的call/cc功能\n")

;; 测试基本的continuation使用
(display "调用call/cc前\n")
(define result (call/cc (lambda (cont)
                          (display "lambda函数内部\n")
                          (display "调用continuation前\n")
                          (cont 42)
                          (display "这一行应该不会被执行\n")
                          100)))

(display "结果: ")
(display result)
(display "\n")

(display "测试完成！\n")